COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE KAFFEE PROGRAM
C00004 00003	END KAFFEE
C00005 ENDMK
C⊗;
TITLE KAFFEE PROGRAM

A=1
B=2
C=3

KAFFEE:
	MOVEI A,17777
	CORE A,
	 EXIT 0,
	DETSEG 0,
	RESET
LOOP:
	ADDI B,105
	ADD B,FOO
	MSTIME A,
	ADD A,B
	MOVSM A,FOO
	ANDI A,77
	IMUL A,[2020202]
	AND A,[104422010]
	IDIVI A,377
STATUS:
	MOVE A,B
	MOVE C,B
	GETNAM A,
	JBTSTS B,
	TLNN B,10000
	 JRST LOOP
	TLNE B,101000
	 JRST LOOP
TRY:
	MOVSI B,377777
	SETPR2 B,
	 JRST KAFFEE
TTY:
	MOVE B,400236
	ADDI B,400000(C)
	MOVE B,(B)
	TLNN B,65000
	 JRST KAFFEE
CORN:
	MOVE B,400212
	ADDI B,400000(C)
	MOVE B,(B)
	ANDI B,777
	CAIL B,20
	 CAILE B,200
	  JRST KAFFEE
	LSH B,11
	SUBI B,1
	CORE B,
	 JRST KAFFEE
SEG:
	MOVE B,C
	JBTSTS B,
	ANDI B,77
	DETSEG 0,
	JUMPE B,.+3
	ATTSEG B,
	 JRST KAFFEE
NAME:
	MOVE A,C
	GETNAM A,
	SETNAM A,
	MOVN B,A
	MOVEI A,73
	SLEEP A,

;;; this inserted by "[FOO,BAR]" 09AUG78 at 03:14
;	PTWR1S AB
;	JRST .-1
;	PTWR1S AB+2
;	JRST .-1
;	PTWR1S AB+4
;	JRST .-1
;	PTWR1S AB+6
;	JRST .-1
;	PTWR1S AB+10
;	JRST .-1
;	EXIT
;AB:	0
;	113
;	0
;	57
;	0
;	106
;	0
;	15
;	0
;	12

HI:
	JRST KAFFEE

FOO:	SIXBIT/KAFFEE/

END KAFFEE